RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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16-Sep-1984 00:37:45  VAX-11 Bliss-32 v4.0-742 1 
1b-be0-1984 99:35:40 DISKSVMSMASTER: CRUNOFF. SRCIGCODE .BLI; + (1) 
MODULE gcode ( {DENT *v04-000' 

BLISS32L, ADDRESSING _MODE (EXTERNAL = LONG_RELATIVE 
’ ONEXTERNAL = LONG-RELATIVESJ 
BEGIN 


i eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeereereedeteeeeeeeneeeenteeeeeeeeeeeeee 
'e 

'* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


® 
® 
& 
® 
® 
'® hale SOF TWARE SS FURNISHED UNDER A LICENSE AND MAY BE USED AND gd La * 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
i INCLUSION OF THE ABOVE Se Tr acipen NOTICE. THIS SOFTWARE OR ANY OTHER * 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
!* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 

, ® 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
!® CORPORATION. * 
® 

® 

* 

® 

® 

® 


i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
t® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


MOPOPONOTONY @ SS Se 
OONAVUES WN OOONOUES WN OVOONO UV Pwr 


SAREE EERE EERE ERA EEEREEEKKEREEREREREEE 
' 


"FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

ABSTRACT: Generates intermediate code for paper positioning. 
ENVIRONMENT: Transportable 

AUTHOR: R.W.Friday CREATION DATE: June, 1978 
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16-Sep VAX-11 Bliss-32 V4.0-742 P 2 
14-Sep ett 09: 3a $3 DISKSVMSMASTER: CRUNOF F SRCIGCODE. BLI:}” (2) 


ZSBITL ‘Revision History’ 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS (; brary. 


MODIFIED BY: 

i 009 REROO009 Ron Randall 17-Mar-1983 

For DSRPLUS: Added code related to topnote tests. 
! 008 REROOOOS Ron Randall 07-Mar-1983 

i 

i 


H 16 
Module Level Declarations 1o23ep= 138s 99:06:90 DISKSVMEMASTERSCHUNOFF “SRCIGCODE.BLIGT?” (35 
RSBTTL "Module Level Declarations’ 
| TABLE OF CONTENTS: 
FORWARD ROUTINE 


Oooo 


UW OOWONOUS wir 


gcpage : NOVALUE, 

gcpcs : NOVALUE, 

5 gcskip NOVALUE, 
05 tpc NOVALUE, 
06 guskip NOVALUE; 


SOO 


oo 
ARO 


INCLUDE FILES: 


IBRARY ‘NXPORT:XPORT'; ! XPORT Library 
REQUIRE ‘REQ:RNODEF'; ' RUNOFF variant definitions 
U ZIF DSRPLUS XYHEN 
U LIBRARY "REQ:DPLLIB"; ! DSRPLUS BLISS Library 
LIBRARY *REQ:DSRLIB"; ! DSR BLISS Library 
! 
EXTERNAL REFERENCES: 
EXTERNAL LITERAL 
rintes : UNSIGNED (8); 
EXTERNAL 
fnct : fnct_definition, 
ca : gca_det inition, 
rac : Irac_definition 
mra : REF FIXED. STRING, 
sca : sca_definition, 
tsf : tsf_definition; 
ZIF DSRPLUS XTHEN 
EXTERNAL 
topnot : tn_definition; 


EXTERNAL ROUTINE 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: outcrg; 


DONANES WN OODONAUES WN "OO ONOUES WN 
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Module Level Declarations 


GLOBAL ROUTINE gcpage 


14 


: NOVALUE = 


'e4 
FUNCTIONAL DESCRIPTION: 


-1984 


-1984 09:37:43 VAX-11 Bliss-32 V4.0-7 
:06:30 DISKSVMSMASTER: CRUNOFF 


Generates code for starting a new page, if not already 
at the top of a page 


i 
i 

i 

i FORMAL PARAMETERS: 
; IMPLICIT INPUTS: 
IMPLICIT OUTPUTS: 
i ROUTINE VALUE: 

i COMPLETION CODES: 
; 

ss 


SIDE EFFECTS: 


BEGIN 


IF_ .fnet_collecting 


RETURN; 


None 
None 
None 


None 
None 


fs_wehar (mra, rintes); 


fs_wchar (mra, %C' 


fs_wehar (mra, %C" '); 
tsf_int_vl = .ts 
END; 


f_int_vl 


3 St 4 4 
0 000000006 
51 04 
00. «BI 006 
00 «BI *6 
oc 
00. «BI 
oC 
50 000000006 
18 Ad 


+ 


333 OOO 


OMPOrwreaoroarmm 
wno-oo- "0—- "Om 
oocvwoclcoocloooromMmoe 
SOOPPSOSSOSAOMoWOS 
COOOCOCOOOCOOOOOooSo 
CoOoOOoOoooooooooooSo 
ee ol elolojlolololololelelq) 
—MOo OVID OSOONO 


Don't start a new page if 


' footnotes are ee collected, 


since footnotes all belong on 


! one page. 


! End of GCPAGE 


GCODE 
\V04-000\ 

.EXTRN RINTES, FNCT, GCA 
SEXTRN IRAC, MRA, SCA, TSF 
“EXTRN OUTCRG 
.PSECT $CODE$,NOWRT,2 


ENTRY re Save nothing 
BLBS FNCT+20, 1$ 


MOVL MRA 
MOVAB 4(R6), R1 
MOVB  #RINTES, @0(R1) 
INCL _ (R1) 

INCL  12(RO) 
MOVE #112, a0(R1) 
INCL _ (R1) 

INCL Ve<RO) 

MOVB #32, a0(R1) 
INCL (RIS 

INCL 12(RO) 

OVL Is. RO 

ADDL2 #3, °24(RO) 


42 Pa 
«SRCIGCODE .BLI;1 


vo4=600 


; Routine Size: 


130 


Module Level Declarations 


61 bytes, 


0257 


1 


Routine Base: 


14-96 -Sep-1984 2 9: 5! $3 


14-Sep-1984 
04 0003C 1$: 
SCODES + 0000 


RET 


VAX=11 Bliss=32 V4.0-742 Page ; 
DISKSVMSMASTER: CRUNOF F. SRCIGCODE.BLI;1 (4 


: 0256 


K 16 
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1 -74 P 
620500 Module Level Declarations 14-Sep-19 ISKSVMSMASTER: CRUNOFF .SRCIGCODE.BLI:1 (5) 
€ 


GLOBAL ROUTINE gcpos (position) : NOVALU 


lee 
' FUNCTIONAL DESCRIPTION: 
Generates code to position to a particular Line on a page. 
FORMAL PARAMETERS: 
position - Indicates which Line is to be positioned to. 
Negative means from the bottom of the page; 
positive means from the top. 
IMPLICIT INPUTS: None 
IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 
COMPLETION CODES: None 


SIDE EFFECTS: None 


BEGIN 
LOCAL 

tsf_phregs : REF VECTOR Ctsf_nregs]; 
] 


i Don't go anywhere if footnotes are being collected. Leave 
the paper positioned where it is. 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
2 : “ 
IF_ .fncet collecting 
THEN 
1 


WN — O DONAUE WHO ODNAUE WN OVONOULS WN 


RETURN; 
tsf_phregs = tsf__phregs; 
IF .tsf_next_reg GEQ tsf_nregs 
: Be sure not to allocate too many ‘‘registers". 


D000 000000000000 09 69 09 09 09 09 09 SIN INI NINN NNO AA AOAAAAOOUIN 
OONAUNE WN OS ODNAUE WN $9 ODNAUE WNC ODNAUS WI O00 


EN 
outerg (); 


tsf_phregs C.tsf_next_reg] = .position; 
fs_wchar (mra, rintes); 

fs_wchar (mra, %C'g'); 

fs_wchar (mra, .tsf_next reg), 
tst_int_vl 5 
tsf_next_reg 
tsf_bar_char 
tsf_bars 
END; 


WONOUESWN—-OV0O~s 


etsf_int_vl 


ADA AAAI ARP POPOPINIPIPOPONNOPOPOPIPOPO PINON POP POPPIN POPOPOPONOPOPOPOPOPIPUPUNUNIFO 


-Sca_bar_char; ! Propogate change bars. 
-tsf_bars OR .irac_bars; 
! End of GCPOS 
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133 bytes, Routine Base: S$CODE$S + 003D 


3; Routine Size: 
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GCOD 16-Sep-1984 2:37:45 VAX-11 Bliss-32 V4.0-742 Pa 8 
$02 2500 Module Level Declarations 137808- 1382 90:35:40 DISKSVMSMASTER: CRUNOFF .SRCIJGCODE.BLI:1> (6) 
3 is ! ] GLOBAL ROUTINE gcskip (spacing) : NOVALUE = 
: 189 14 1 !44 
: 139 iF } } FUNCTIONAL DESCRIPTION: 
: 19¢ 13 1 i Generate code to skip Lines that don't occur at the top 
3 137 18 : of a page. 
: 195 0 9 | | FORMAL PARAMETERS: 
: ib i 0 § : ; spacing - Indicates how many Lines are to be skipped. 
; 199 6 4 1 1 IMPLICIT INPUTS: None 
; 200 0325 1! 
: 20¢ 03 § ! IMPLICIT OUTPUTS: None 
: 08 0328 1 | ROUTINE VALUE: 
° soe 8 4 : COMPLETION CODES: None 
: 306 0331 1 | SIDE EFFECTS: None 
PB Bae 
Ree me 
: 311 036 tsf_phregs : REF VECTOR (tsf_nregs]; 
; 218 0338 tsf_phregs = tsf__phregs:; 
: $12 tre if 4 2Pacing LEQ 0 
; 37 tak: RETURN; ! Don't generate code for single spacing. 
; 38 Bere 4 ght nextreg GEQ tsf_nregs ! Don't allocate too many "‘registers’’. 
: 33 bso outcrg (); 
3 22 0348 tsf_phregs C.tsf_rext_reg] = .spacing; 
3 8 Be0 2 is. Scher tare, rintes); . . 
: $5 . 0531 ZIF DSPOLUS XTHEN 
; $8 , 0338 : If collecting topnotes, make the Lines unconditional and count them. 
; 280 U 0335 iF .tn collecting 
Reg Me 
; 33 U O36 fs_wohar (mra, %C'u'); . 
3; 234 U 0359 tsf_lines = .tsf_lines + .spacing; 
: 36 y 309 ELSE ¥ 
: 39 U $62 BEGIN 
i $36 ae ia 
; rs $2 If collecting footnotes, make the Lines unconditional and count them. 
: 4@ 367 if .fnet_collecting 
: 2&4 368 THEN 
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Vos-400 


! Propogate change bars. 


! End of GCSKIP 


-irac_bars; 


. &C'u'); 
-tsf lines + .spacing; 
tsf_next_reg); 
int cvl ? 3; 
“next_reg + 1; 
_bar_char; 
bars OR 


tsf 
tsf 
sca 
tsf 


tsf_lines 
END 
fs_wchar (mra, %C's'); 
vl 
re 
“thar 


fs_wchar (mra 
ZIF DSRPLUS XTHEN 


BEGIN 
ELSE 

END; 
fs_wehar (mra, 
tsT- int 
tsf_next 
tsf_bar 
tsf_bars 
END; 
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52 00000000G EF 3 Fe erigy ne: #1, IRAC, R2 : 
7c =A 01 0 FO 3 ty #O, #1, 124(RO) ; 


; Routine Size: 155 bytes, Routine Base: S$CODE$ + 00C2 


> 261 0386 1 
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GCOD 16-Sep-1984 00:37:45 VAX-11 Bliss-32 V4.0-742 P 1 
Voe-500 Module Level Declarations 13-808-1 382 99:50:46 DISKSVMSMASTER: RUNOFF. SRCIGCODE.BLI:1>— d) 
GLOBAL ROUTINE gtpc (count) : NOVALUE = 


'e4 

FUNCTIONAL DESCRIPTION: 

i Generates intermediate code for a .TEST PAGE command. 
i FORMAL PARAMETERS: 


count = Specifies how many free Lines should be tested for. 


WWAWAAWNIAWAWw 
ODOOOOOOOOOMWC®M 
OowOOon 


Morororonononopereofrererereferv—frorns 
SNS NSN PAPAS 
ons —OO@W Vilw 
WO COONS NEW (OC OONO UE WIN — O ODNAU EWN CO OODNAU EWN OO CONAUE Wr 


i IMPLICIT INPUTS: None 
$ IMPLICIT OUTPUTS: None 
8 ! ROUTINE VALUE: 

G4 COMPLETION CODES: None 
a} ; SIDE EFFECTS: None 
: = 
85 LOCAL 


tsf_phregs : REF VECTOR [tsf_nregs]; 
tsf_phregs = tsf__phregs; 
DB ahead i, hc alka to do a test page, since 
-fnct_collecting 
RETURN; 
XIF DSRPLUS XTHEN 
If collecting a topnote, don't bother to do a test page. 


Le 


F 
HEN 


WAPIPOPIPIPSPSPoNofenonofonononononononons 


DONO AR WV OSRBLER RW OOO NEAR POOR We 


iF etn collecting 
RETURN; 


ccccccc 
CDOOCOCOCSCSOOCOSOSOSOSOSOSOOOSOOOSOSOSOOSOOSOOSOSOOOSOSOOOOCOOOCOOOOOOO 


2FI 
if -tsf_next_reg GEQ tsf_nregs ! Don't allocate too many ‘registers’. 
outcrg (); 


tsf_phregs C.tsf_next_reg] = .count; 

S_wchar (mra, rintes); ! If (test page..) 
fs_wohar (mra, %C't'); 

fs_wchar (mra, .tsf_next_reg); 

fs_wchar (mra, rintes); ! end THEN 
fs_wehar (mra, %C‘.'); 
fs_wehar (mra, %C° '); 
fs_wehar (mra, rin 
fs_wehar (mra, %C' 


PORoRoRoRoROR OR ORORORORORONONONONONONONOPONOPOPONOPONoNONononononononony — 


BEF PAA NNN WIUPRIPININIPINIPINIDY A 2 OO at SS SS OOOOCOOCOCOCO 


es); ! else (page..) 
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1b-5e =1984 00:37:45 VAX=11 Bliss-32 V4.0-742 Page 1 
Module Level Declarations 1 ~8ep-19 4 90:36:40 DISKSVMSMASTER:CRUNOFF .SRCIGCODE .BLI:1> B 
0444 fs_wchar (mra, + *): 
445 fs"wchar (mra, rintes); ! end ELSE 
Pe fs_wchar (mra, %C'.'); 
44 fs eyner (mra, %C° '); 
ret tsf_int.vl = .tsf_lint_vl + 12; 
44 tsfinext_reg = .tsfinext_reg + 1; 
0450 tsf_bar_char = .sca_bar_char; ! Propogate change bars. 
0451 tsf_bars = ,tsf_bars OR .irac_bars; 
0452 END: ! End of GTPC 
003C 00000 .ENTRY GTPC, Save 82,R3,R4,R5 : 0387 
55 000000006 EF 9E 00002 MOVAB TSF, R5 : 
50 65 D0 00009 MOVL TSF, RO + 0412 
52 008c cd 3 0000C¢ MOVAB 140(RO), TSF_PHREGS : 
01 000000006 EF : 90011 BLBC FNCT+20, 1$ : 0418 
4 00018 RET : 
05 0088 CO D1 00019 1$: CMPL 136(RO), #5 + 0431 
07 19 O001E BLSS 2$ : 
000000006 EF 09 FB 000 CALLS #0, OUTCRG : 0433 
0 65 00 00027 2s: MOVL 1S RO + 0435 
54 0088 C0 4 900 A MOVAB 136(RO), R4 : 
53 64 DO 000eF MOVL (R4), RS : 
624 04 AC DO 000 : MOVL COUNT, (TSF_PHREGS)CR3) ; 
51 000000006 EF DO 000 MOVL MRA, R1 + 0436 
32 04 Al 3 00 MOVAB 4(R1), R2 : 
00 8B 006 8F 90 0004 MOVB  #RINTES, a0(R2) : 
62 D6 0004 INCL (R2) : 
51 oc co 90049 ADDL2 #12, R1 : 
61 D6 0004C INCL (RIS : 
00 «B2 74 8F 90 O06E MOVB #116, 80(R2) : 0437 
62 D6 0005 INCL (R2) : 
61 06 00055 INCL (R1) 3 
00 B82 53 90 90037 MOVB RS, @0(R2) : 0438 
62 dé 00058 INCL (Re) : 
61 D6 0005D INCL (R1) : 
00 =B2 00G 8F 90 0005F MOVB #RINTES, a0(R2) : 0439 
62 D6 00064 INCL (R2) : 
gi 06 0066 INCL (Ri) : 
00 =B2 90 00068 MOVB #46, a0(R2) : 0440 
D 996¢ INCL (R25 : 
b oF INCL (R1) ; 
00 =«=—B2 8 8 MOVB a6 a0(R2) ; 0441 
D6 00074 INCL (R25 : 
61 6 0 26 INCL (R1) : 
00 =«B2 006 8F 90 0007 MCVB #RINTES, a0(R2) + 0442 
62 D6 0007D INCL (R2) : 
é D6 0007F INCL (R1) : 
00 =«—«B2 70 8F 90 00081 MOVB #112, a0(R2) > 0443 
6¢ D6 000 INCL (R2) : 
6 INCL (R1) ; 
00 B2 g A MOVB #32, a0(R2) > 0444 
06 BF INCL (ROS : 
61 dé INCL (R1) ; 


GCOD 
vOe-600 
51 7¢ = AO 
52 00000000G_ EF 
7¢ = AO 01 
; Routine Size: 210 bytes, 
: 329 0453 (1 
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00 82 
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18 AO 


1c 0 000000006 


51 
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Routine Base: 


006 
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if: 
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VAX=11 Bliss-32 V4.0-742 e 13 
DISKSVMSMASTER: CRUNOFF ..SRCIGCODE.BLI; Pa9 RS 
RINTES, @0(R2) + 0445 
(ne) : 
$26. a0cR2) + 0446 
(R2$ ; 
(R1) ; 
#32, a0(R2) + 0447 
(ROS : 
(R1) : 
#12, 24(RO) + 0448 
(R4S t 0449 
asCAe136 28(RO) + 0450 
#0, #1, 124(RO), RI + 0451 
#0, #1. IRAC, Re ; 
R2, R1 3 
R1, #0, #1, 124(RO) F 
3; 0452 
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GCOD 18-5 -Sep-1984 VAX=11 Bliss-32 V4.0-742 4 

VOe~500 Module Level Declarations Haat 99: 36; 43 DIS SKSVMGN TER: CRUNOFF. SRCIGCODE .BLI; had (BS 

; 435 } GLOBAL ROUTINE guskip (spacing) : NOVALUE = : 
3 456 1 !¢ ; 
; 2 i ! FUNCTIONAL DESCRIPTION: : 
; § 435 | ; Generates code to skip unconditionally a number of Lines. ; 
; 8 461 | FORMAL PARAMETERS: : 
; 7 Beez : spacing - Indicates how many Lines should be skipped. 
; ae rf 5] i IMPLICIT INPUTS: None ; 
: 344 Zé? | i IMPLICIT OUTPUTS: None 
3 345 0468 1! 

; 46 0469 1 ! ROUTINE VALUE: 

>; 347 0470 1 ! COMPLETION CODES: None 

; 348 471 1! 

; 49 472 1! SIDE EFFECTS: None 

; 350 0473 1 !-- 

a>) 0474 1 

; 26 0475 BEGIN 

; 5 047 LOCAL 

: 32 og 4 tsf_phregs : REF VECTOR Ctsf_nregs); 

: 356 0479 tsf_phregs = tsf__phregs; 

: 387 0480 oi poh 

3 33 ret IF .spacing LEQ 0 

; 2 acs RETURN; ! Don't generate code for single spacing. 

; $¢ 0485 IF_ .tsf_next_reg GEQ tsf_nregs ' Don't allocate too many ‘'registers'’. 

; bees THEN 

> 364 4 outcrg (); 

: 366 0089 tst_phregs C.tsf_next_reg) = 

: s regs sf_next_re - Spacing; 

3 Ser 0490 fs "geher tara, rintes); . . ° 

; 0491 fs_wehar (mra, xc" u'); 

; 049 fs-wohar (mra, -tsfnext_reg) 

; 049 tst_int_vl = .tsfZint_vl + 3; 

3 0494 tsf_next_reg = .tsf_next_reg + 1; 

: 0495 tsf_bar_Char = .sca_bar_Char; ! Propogate change bars. 

g 49 tsf_bars = .tsf_bars OR sirac_bars; 

; 198 l 

; rh If collecting a footnote, count the number of Lines to be generated. 

; 4 if .fnct_collecting 

; 308 tsf_lines = .tsf_lines + .spacing; 

; v 508 3 x F DSRPLUS XTHEN | 

; : Ay If collecting a topnote, count the number of Lines to be generated. 

; U 05 5 iF .tn_collecting 

; U 0510 THEN 


se ee 


H A. 
yOe-500 Module Level Declarations 12: i 138 99: 06; $3 DE SKSUMBHASTERSCRUNOF? “SRCIGCODE. BLI; Ah at 5} 


; 388 U 21) tsf_lines = .tsf_lines + .spacing; : 

a. gg : 

: 391 az END; ! End of GUSKIP 

007¢ 00000 .ENTRY GUSKIP, Save R2,R3,R4,R5,R6 5 0454 ; 

56 000000006 Ef 3 90002 MOVAB SF Rb pes : 

H 008¢ 6 8 Mitt MOVAB 140(RO), SF _PHREGS : ; 

5 4 Ac 0p 0011 MOVL SPACING. R + 0481 : 

76 1 O13 BLEQ 2s : : 

05 0088 £0 D4 0017 CPL 136(R0), #5 ; 0485 : 

000000006 Ef 00 FB OO1E CALLS #0, OUTCRG > 0487 : 

1 66 DO 00025 1S: MOVL TSF, R1 + 0489 : 

54 0088 C1 3 0028 MOVAB 136(R1), R4 : ; 

53 $4 DO 00020 MOVL (R4), RS : : 

624 5 DO 00030 MOVL  R5, (TSF_PHREGS)CR3) : ; 

50 000000006 EF DO 0034 MOVL MRA, RO + 0490 : 

32 04 AO 3 00038 MOVAB 4(RO), R2 : : 

00 8B 006 8F 90 0003F MOVB wRINTES, a0(R2) : : 

62 D6 00044 INCL _— (R2) : : 

OC AO D6 00046 INCL 12(RO) : : 

00 B2 75 BF 90 00049 MOVB #117, @0(R2) + 0491 : 

oc AR REARS NL ho : : 

00 B2 5 38 00053 MOVB 4g a0(R2) : 0492 F 

62 D6 9005 INCL (RQ) ; ; 

0c AO D6 00059 INCL VecRQ) : : 

18 «Al 03 CO 90056 ADDL2 #3, 24(R1) + 0493 : 

64 06 0006 INCL (R4) + 0494 F 

1¢ Al 000000006 FF DO 00062 MOVL § @SCA+136, 28(R1) + 0495 : 

50 Al o1 0 EF 0006A EXTZ2V #0, #1, 124(R1), RO > 0496 ; 

52 000000006 EF Of 3 cf o00%9 EXTZV ne , IRAC, RO 2 : 

7c OA 01 00 FO 9o7¢ INSV. RO. #0, #1, 124(R1) : ; 

04 000000006 a 9 0 082 BLBC ~— FNC #26, 2$ : 0501 ; 

34 OAT 5 co 008 ADDL2 RS, 52(R1) : 0503 : 

4 0008D 2$: RET : 0514 : 

: Routine Size: 142 bytes, Routine Base: S$CODES + 022F : 

: 39 515 1 ? 
: 338 0316 1 END ' End of module 

: 394 517 0 ELUDOM 


: PSECT SUMMARY 


1 

GCOD rhese -1984 00:37:45 VAX=-11 Ot ise: 32 V4.0-742 16 
voe-500 Module Level Declarations 1228 8-13Re 99550340 DISKSVMSMASTER: CRUNOFF. SRCIGCODE .BLI; A had (8) 
3 Name Bytes Attributes 
: SCODES 701 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
So Bi rece ee MRE Sn A crepe aoe SYERO(§ woccecee Pages Processing 
: File Total Loaded Percent Mapped Time 
; $DUA28: (SYSLIBIXPORT.L32;1 59 0 0 252 00:00.1 
: $588$puASB ‘FR YAbER SRCIDSRLIB.L32;1 1348 28 2 8b $5500:3 
: COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:GCODE/OBJ=0BJ$:GCODE MSRC$:GCODE/UPDATE=(ENH$:GCODE) 

Size: 701 code + 0 data bytes 

Run Time: 0: 


Elapsed Time: 00:38. 
Lines/CPU Min: 1994 
Lovenee/CPy-wie) 26477 

Y Used: 103 pages 
— ation Complete 
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